home *** CD-ROM | disk | FTP | other *** search
- object dlgEdit: TdlgEdit
- Left = 287
- Top = 162
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'BIGpage'
- ClientHeight = 364
- ClientWidth = 505
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 505
- Height = 364
- Align = alClient
- BevelOuter = bvLowered
- TabOrder = 0
- object PTSplitter1: TPTSplitter
- Left = 1
- Top = 35
- Width = 503
- Height = 328
- Align = alClient
- Color = clSilver
- ParentColor = False
- Position = 180
- TabOrder = 0
- object TPTPane
- Left = 0
- Top = 0
- Width = 180
- Height = 328
- Index = 0
- object tvBIGpage: TPTShellTree
- Left = 2
- Top = 2
- Width = 176
- Height = 324
- Options = [ptstoAutoFill, ptstoVirtualFolders, ptstoDefaultKeyHandling, ptstoContextMenus, ptstoDynamicRefresh, ptstoIncludeNonFolders]
- BorderStyle = bsNone
- ShowRoot = False
- DragMode = dmAutomatic
- HideSelection = False
- Indent = 19
- OnChanging = tvBIGpageChanging
- OnChange = tvBIGpageChange
- Align = alClient
- ParentColor = False
- TabOrder = 0
- end
- end
- object TPTPane
- Left = 183
- Top = 0
- Width = 320
- Height = 328
- FrameStyle = ptfsNone
- Color = clGray
- ParentColor = False
- Index = 1
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 320
- Height = 328
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 6
- Color = 10420224
- TabOrder = 0
- object ExtPageControl1: TExtPageControl
- Left = 6
- Top = 6
- Width = 308
- Height = 316
- ActivePage = TabSheet1
- Align = alClient
- TabHeight = 20
- TabOrder = 0
- TabWidth = 70
- Color = 10420224
- ParentColor = False
- TabActiveColor = 10420224
- TabActiveFont.Charset = DEFAULT_CHARSET
- TabActiveFont.Color = clWhite
- TabActiveFont.Height = -11
- TabActiveFont.Name = 'MS Sans Serif'
- TabActiveFont.Style = []
- TabInactiveColor = 10420224
- TabInactiveFont.Charset = DEFAULT_CHARSET
- TabInactiveFont.Color = clSilver
- TabInactiveFont.Height = -11
- TabInactiveFont.Name = 'MS Sans Serif'
- TabInactiveFont.Style = []
- object TabSheet1: TTabSheet
- Caption = 'Properties'
- object Label3: TLabel
- Left = 15
- Top = 170
- Width = 56
- Height = 13
- Caption = 'Description:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 15
- Top = 49
- Width = 30
- Height = 13
- Caption = 'URLs:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 15
- Top = 15
- Width = 42
- Height = 13
- Caption = 'Channel:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object btnDOWN: TTransparentButton
- Left = 263
- Top = 44
- Width = 24
- Height = 24
- Hint = 'Browse'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- FrameStyle = fsLight
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
- 333333333337F3333333333333397333333333333337FF333333333333C94333
- 3333333333737F333333333333C9473333333333337373F3333333333CC94433
- 3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
- 333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
- 33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
- 4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
- 443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
- 444377733337F333777FC3333339333337437333333733333373}
- NumGlyphs = 2
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = btnDOWNClick
- end
- object btnUP: TTransparentButton
- Left = 236
- Top = 44
- Width = 24
- Height = 24
- Hint = 'Browse'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- FrameStyle = fsLight
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
- 337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
- 4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
- 44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
- 473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
- 7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
- 33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
- 33333333333737F333333333333C943333333333333737333333333333339733
- 3333333333337F33333333333333933333333333333373333333}
- NumGlyphs = 2
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = btnUPClick
- end
- object edDescription: TRichEdit
- Left = 15
- Top = 193
- Width = 274
- Height = 59
- TabOrder = 0
- end
- object lbURLs: TListBox
- Left = 15
- Top = 72
- Width = 274
- Height = 92
- ItemHeight = 13
- PopupMenu = PopupMenu1
- TabOrder = 1
- OnClick = lbURLsClick
- OnDblClick = lbURLsDblClick
- end
- object cmbChannel: TComboBox
- Left = 65
- Top = 12
- Width = 57
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Sorted = True
- TabOrder = 2
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Author Info'
- object Label2: TLabel
- Left = 16
- Top = 99
- Width = 36
- Height = 13
- Caption = 'WWW:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object TLabel
- Left = 16
- Top = 74
- Width = 28
- Height = 13
- Caption = 'Email:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label1: TLabel
- Left = 16
- Top = 49
- Width = 34
- Height = 13
- Caption = 'Author:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label6: TLabel
- Left = 16
- Top = 138
- Width = 259
- Height = 52
- Caption =
- 'You can provide the URL of a banner to be displayed whenever som' +
- 'eone views your BIGpage. This banner will be displayed within t' +
- 'he top pane of the BIGpage and must be 120 X 60 in size.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clAqua
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Label7: TLabel
- Left = 16
- Top = 200
- Width = 62
- Height = 13
- Caption = 'Banner URL:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label8: TLabel
- Left = 16
- Top = 9
- Width = 263
- Height = 26
- Caption =
- 'You can provide info about yourself as the author of this BIGpag' +
- 'e, to enable viewers to contact you.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clAqua
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object edAuthor: TEdit
- Left = 60
- Top = 45
- Width = 200
- Height = 19
- BorderStyle = bsNone
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 0
- end
- object edEmail: TEdit
- Left = 60
- Top = 71
- Width = 200
- Height = 19
- BorderStyle = bsNone
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 1
- end
- object edWebsite: TEdit
- Left = 60
- Top = 97
- Width = 200
- Height = 19
- BorderStyle = bsNone
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 2
- end
- object edBannerURL: TEdit
- Left = 16
- Top = 218
- Width = 249
- Height = 19
- BorderStyle = bsNone
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 3
- end
- end
- end
- end
- end
- end
- object pnlTitle: TPanel
- Left = 1
- Top = 1
- Width = 503
- Height = 34
- Align = alTop
- Alignment = taLeftJustify
- BorderWidth = 4
- Caption = 'BIGpage:'
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- object btnNew: TTransparentButton
- Left = 190
- Top = 5
- Width = 49
- Height = 24
- Hint = 'New BIGpage'
- Caption = 'New'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- FrameStyle = fsLight
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = btnNewClick
- end
- object btnAdd: TTransparentButton
- Left = 242
- Top = 5
- Width = 49
- Height = 24
- Hint = 'Add URL'
- Caption = 'Add'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- FrameStyle = fsLight
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = btnAddPageClick
- end
- object btnDelete: TTransparentButton
- Left = 294
- Top = 5
- Width = 49
- Height = 24
- Hint = 'Delete URL'
- Caption = 'Delete'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- FrameStyle = fsLight
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = obtnDeleteClick
- end
- object btnBrowse: TTransparentButton
- Left = 346
- Top = 5
- Width = 49
- Height = 24
- Hint = 'Browse'
- Caption = 'Browse'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- FrameStyle = fsLight
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = btnBrowseClick
- end
- end
- end
- object ilLarge: TImageList
- Height = 32
- Width = 32
- Left = 450
- Top = 318
- end
- object PopupMenu1: TPopupMenu
- OnPopup = PopupMenu1Popup
- Left = 421
- Top = 318
- object pmiNew: TMenuItem
- Caption = '&New'
- OnClick = btnNewClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object pmiAdd: TMenuItem
- Caption = '&Add URL...'
- OnClick = btnAddPageClick
- end
- object pmiEdit: TMenuItem
- Caption = '&Edit URL...'
- OnClick = lbURLsDblClick
- end
- object pmiDelete: TMenuItem
- Caption = '&Delete URL'
- OnClick = obtnDeleteClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object pmiBrowse: TMenuItem
- Caption = '&Browse'
- OnClick = pmiBrowseClick
- end
- end
- end
-